home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / divers / ti57_p0.sha < prev    next >
Text File  |  1994-03-01  |  1KB  |  18 lines
  1. 10 DATA 13,R/S,15,On/C,21,RST,26,2nd x=t,27,2nd xàt,29,2nd Dsz,31,log,32,lnx,33,1/x,34,x’,35,‚x,40,2nd x!,41,DGR,42,sin,43,cos,44,tan,45,y,46,2nd DRG>,47,2nd P<>R,48,2nd DMS-DD,49,2nd ç,50,2nd |x|,51,x<>t,52,EE,53,(,54,),55,Ÿ,56,2nd Ct,58,2nd Intg
  2. 20 DATA 59,2nd Frac,65,ð,75,-,76,2nd CM,85,+,93,.,94,ù,95,=,96,2nd Pause,EOF,EOF
  3. 30 DATA 22,GTO,23,LBL,28,2nd SBR,57,2nd Fix,61,STO,71,RCL,81,EXC,EOF,EOF
  4. 40 DATA 61.45,STO y,61.55,STO Ÿ,61.65,STO ð,61.75,STO -,61.85,STO +,EOF,EOF
  5. 45 DATA -26,2nd Inv x=t,-27,2nd Inv xàt,-28,2nd Inv SBR,-29,2nd Inv Dsz,-31,Inv log,-32,Inv lnx,-41,Inv DRG,-42,Inv sin,-43,Inv cos,-44,Inv tan,-46,2nd Inv DRG>,-47,2nd Inv P<>R,-48,2nd Inv DMS-DD,-52,Inv EE,-57,2nd Inv Fix,EOF,EOF
  6. 50 RESTORE:S$=""
  7. 60 L=LEN(L$):IF L<>2 AND L<>5 AND L<>8 AND L<>3 THEN S$="Erreur longueur":NE=NE+1:GOTO 140
  8. 65 IF L=3 THEN RESTORE 45
  9. 70 IF L=5 THEN RESTORE 30
  10. 80 IF L=8 THEN RESTORE 40
  11. 85 IF L=2 AND VAL(L$)=>0 AND VAL(L$)<=9 THEN S$=RIGHT$(L$,1):GOTO 100
  12. 90 READ A$,B$:IF LEFT$(L$,2+3*ABS(L=8)+1*ABS(L=3))=A$ THEN S$=S$+B$ ELSE IF A$<>"EOF" AND S$="" THEN GOTO 90
  13. 100 REM
  14. 110 IF (L=5 OR L=8) AND S$<>"" THEN S$=S$+" "+RIGHT$(L$,1):IF VAL(RIGHT$(L$,2))<0 OR VAL(RIGHT$(L$,2))>9 THEN S$=""
  15. 120 IF S$="" THEN S$="Erreur syntaxe":NE=NE+1:GOTO 140
  16. 140 PRINT CHR$(12);L$;CSR(11);S$;CSR(26);C;CHR$(13);"Conversion....Erreur:";NE;
  17. 150 RETURN
  18.